home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 87xx / 8710.d64 / pd menu maker (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  3KB  |  97 lines
  1. 1 REM
  2. 2 REM PULLDOWN   MENU MAKER
  3. 3 REM
  4. 4 REM (C) 86: MAROSOFT
  5. 5 REM
  6. 9 IF FL=0 THEN DIM M(5),M$(5),B$(5,11)
  7. 10 IF FL=0 THEN FL=1:PRINT "[147]LOADING PD1-4 ...":LOAD "PD1",8,1
  8. 11 IF FL=1 THEN FL=2:LOAD "PD2",8,1
  9. 12 IF FL=2 THEN FL=3:LOAD "PD3",8,1
  10. 13 IF FL=3 THEN FL=4:LOAD "PD4",8,1
  11. 14 PRINT"[147]PULLDOWN MENU MAKER        (C) MAROSOFT"
  12. 15 OPEN 1,8,15:PRINT#1,"R:H#H#H#=PD0"
  13. 16 INPUT#1,A,B$,C,D:IF A<>0 THEN 20
  14. 17 PRINT#1,"R:PD0=H#H#H#":PRINT" PD0 EXISTIERT SCHON AUF DIESER DISK"
  15. 18 PRINT" ANDERE DISK EINLEGEN, <RETURN>
  16. 19 [133] A$:[160] 1:[137] 15
  17. 20 [152]1,"I":[160] 1
  18. 21 [153]"ES STEHEN 5 OBERMENUES ZUR VERFUEGUNG.
  19. 22 PRINT"BITTE GEBEN SIE DIE NAMEN EIN:"
  20. 23 PRINT "STELLEN SIE DIE GROSS/KLEINSHREIBUNG WIEIN IHREM PROGRAMM EIN !!!
  21. 30 [129] X[178]1 [164] 5:B$[178]" ":[139] X[178]5 [167] B$[178]""
  22. 40 [153]"MENU"X":";
  23. 50 [133] T$
  24. 60 [139] [195](T$)[177]7[170](X[178]5) [167] [153]"ON";:[137] 40
  25. 70 [153]
  26. 80 [139] [195](T$)[178]7[170](X[178]5) [167] 100
  27. 90 T$[178]T$[170]" ":[137] 80
  28. 100 M$(X)[178]T$:T$[178]"":[153]:[153]"ON "
  29. 110 [130] X
  30. 120 ME$[178]" "
  31. 130 [129] X[178]1 [164] 5:ME$[178]ME$[170]M$(X)[170]" ":[130] X
  32. 140 [153]"LOAD"ME$;:[129] X[178]1 [164] 40:[153]"=";:[130] X
  33. 150 [153]:[153]"^ SO SIEHT DIE KOPFZEILE AUS. OK (J/N) ?"
  34. 160 [161] A$:[139] A$[178]"" [167] 160
  35. 170 [139] A$[179][177]"J" [167] 10
  36. 200 [153] "LOADJETZT DIE ANZAHL BEFEHLE PRO MENU:
  37. 210 FOR X=1 TO 5
  38. 220 PRINT"MENU"X": "+M$(X):INPUT M(X)
  39. 230 IF M(X)>10 OR M(X)<1 THEN PRINT"[145][145][145]";:GOTO 220
  40. 240 NEXT X
  41. 250 PRINT"[147]UND JETZT DIE BEFEHLE:
  42. 260 [129] X[178]1 [164] 5:[153]"FUER MENU"X": "M$(X)" ("M(X)")"
  43. 270 [129] Y[178]1 [164] M(X)
  44. 280 [153]Y":":[133] B$(X,Y)
  45. 290 [139] [195](B$(X,Y))[177]17 [167] [153]"ON";:[137] 280
  46. 291 [139] [195](B$(X,Y))[178]17 [167] 293
  47. 292 B$(X,Y)[178]B$(X,Y)[170]" ":[137] 291
  48. 293 B$(X,Y)[178]"= "[170]B$(X,Y)[170]" ="
  49. 300 [130] Y:B$(X,Y)[178]"=====================":[130] X
  50. 310 [153]"LOAD  (1) UEBERSICHT AM BILDSCHIRM
  51. 311 PRINT"  (2) UEBERSICHT AUF DRUCKER
  52. 312 [153]"  (3) DATEN ERRECHNEN UND SPEICHERN"
  53. 320 [161] A$:A[178][197](A$):[139] A[178]0 [176] A[177]3 [167] 320
  54. 330 [139] A[178]3 [167] 500
  55. 340 [159] 1,2[170]A
  56. 350 [152]1:[152]1:[152]1,ME$
  57. 360 [129] X[178]1 [164] 5:[152]1: [152]1,M$(X)":":[152]1
  58. 370 [129] Y[178]1 [164] M(X):[152]1,Y"  -"B$(X,Y)
  59. 380 [130] Y,X
  60. 390 [160] 1:[137] 310
  61. 500 [153]"LOADBITTE WARTEN, ICH RECHNE... _ HIER CODETEST!
  62. 510 REM HEADER (KOPFZEILE)
  63. 520 L=49408:T$=ME$:GOSUB 10000
  64. 530 FOR X=1 TO 5
  65. 540 POKE 50927+X,M(X)-1
  66. 550 NEXT X
  67. 560 L=51712
  68. 570 FOR X=1 TO 5:L=L+256
  69. 580 T$="":FOR Y=1 TO M(X)+1:T$=T$+B$(X,Y):NEXT Y:GOSUB 10000
  70. 590 NEXT X
  71. 600 PRINT"        _ COUNTDOWN          "
  72. 604 PRINT"DISKETTE EINLEGEN! OK? RETURN!"
  73. 605 INPUT A$
  74. 610 PRINT"ICH SPEICHERE JETZT !"
  75. 620 OPEN 1,8,2,"PD0,P,W"
  76. 630 PRINT#1,CHR$(0);CHR$(192);
  77. 640 FOR X=49152 TO 53247:PRINT""53247-X"    "
  78. 650 PRINT#1,CHR$(PEEK(X));:NEXT X
  79. 660 CLOSE 1
  80. 700 PRINT"[147]CODETABELLE AUSDRUCKEN (J/N)
  81. 710 [161] A$:[139] A$[178]"" [167] 710
  82. 720 [139] A$[179][177]"J" [167] 9999
  83. 730 [159] 1,4
  84. 740 [152]1,"CODETABELLE FUER PULLDOWN-MENUES                    (C) MAROSOFT '86
  85. 750 PRINT#1:PRINT#1,"KOPFZEILE:":PRINT#1,ME$
  86. 760 FOR X=1 TO 5:PRINT#1:PRINT#1,M$(X):PRINT#1
  87. 770 FOR Y=1 TO M(X):PRINT#1,(X-1)*10+Y-1;TAB(5);B$(X,Y):NEXT Y,X
  88. 780 PRINT#1:PRINT#1,99;TAB(5)"QUIT OHNE AUSWAHL"
  89. 790 CLOSE 1
  90. 9999 END
  91. 10000 REM CODE ERRECHNEN UND NACH L
  92. 10010 FOR I=1 TO LEN(T$):A$=MID$(T$,I,1)
  93. 10020 PRINT"";A$;
  94. 10030 POKE L+I-1,PEEK(1024)
  95. 10040 NEXT I
  96. 10050 RETURN
  97.